﻿<%
' 读取 用户状态
dim myuser
set myuser=new myuserObj
myuser.myuserObjByStatus()

' 验证用户
sub CheckUserLogin(arg0)
	if arg0="" then arg0=Request.ServerVariables("Url")
    if myuser.isnull() then        
        response.redirect "signin.asp?rurl=" & arg0
	    response.End()
    end if
end sub
%>